===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 06-08-93 (03:11)             Number: 207
From: RICH GELDREICH               Refer#: NONE
  To: VICTOR YIU                    Recvd: NO  
Subj: Prototype 3/3                  Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 3.

    PrintLine L1$
    PrintLine L2$
    PrintLine L3$
    PrintLine L4$

END SUB

SUB EncodeStart

    OutputLine$ = "U" + CHR$(34) + SPACE$(63)
    OutputPos = 3

    FOR A = LEN(I$) TO 1 STEP -1
        IF INSTR("\:", MID$(I$, A, 1)) THEN EXIT FOR
    NEXT
    P$ = UCASE$(MID$(I$, A + 1))

    Q$ = CHR$(34)

    L0$ = "'This is a prototype PostIt! self extracting script."

    L1$ = "DEFINT A-Z:OPEN" + Q$ + "O" + Q$ + ",1," + Q$ + P$ +_
 Q$
    L1$ = L1$ + ",4^6:DIM SHARED B,K"

    PrintLine L0$
    PrintLine L1$

    NextSub = 0
    LinesInSub = -1

    FlagScaler = 1
    CurrentFlag = 0
    CodesInBucket = 0

END SUB

SUB PrintLine (A$)

    PRINT #2, A$

    LinesWritten = LinesWritten + 1

END SUB

SUB PrintScriptLine (A$)

    IF LinesInSub = -1 THEN
        LinesInSub = 0
        PrintLine "SUB V" + HEX$(NextSub)
        NextSub = NextSub + 1
    END IF

    PrintLine A$
    OutputPos = 3

    LinesInSub = LinesInSub + 1
    IF LinesInSub = 350 THEN
        PrintLine "END SUB"
        LinesInSub = -1
    END IF

END SUB


'______O_/__________________| SNIP |__________________\_O______
'      O \                  | HERE |                  / O


--- MsgToss 2.0b
 * Origin: Computer Co-Op - Voorhees, NJ | Ted Hare (1:266/29)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20